5 OPEN15,8,15,"S:DREADNOUGHT-HI":CLOSE15
10 OPEN 1,8,1,"DREADNOUGHT-HI,P,W"
20 PRINT#1,CHR$(0);CHR$(112);
30 FORI=1 TO 8
40 PRINT#1,CHR$(0);CHR$(0);CHR$(0);
50 PRINT#1,"000000@......";
60 PRINT#1,CHR$(0);
70 NEXT I
80 CLOSE 1